home *** CD-ROM | disk | FTP | other *** search
- /* echo command line arguments
- * source: echo.bds
- * version: July 17, 1981
- */
-
- /* echo - echo command line arguments */
-
- # include symbol definitions
-
- DRIVER(echo)
-
- integer i
- integer getarg
-
- character buf (MAXARG)
-
- call query ("usage: echo [args].")
-
- for (i = 1; getarg (i, buf, MAXARG) != EOF; i = i + 1) {
- if (i != 1)
- call putch (BLANK, STDOUT)
- call putlin (buf, STDOUT)
- }
- if (i != 1)
- call putch (NEWLINE, STDOUT)
- }